Pimp your Notes, was: Emoticons in Notes mail

Notes/Domino 8 Forum

Subject:

You can add emoticons yourself...
For example this way:

On the "Message","Reply",.. form add the following code to the Querysave event:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
If source.InPreviewPane Then Exit Sub
Call source.FieldSetText("useApplet", "True")

' === Start emoticons ===
Dim MySmilies List As String
Dim fieldname As String
Dim datadir As String
Dim session As New NotesSession
Dim bdy As String
Datadir =session.GetEnvironmentString("Directory", True)
MySmilies( "O:-)" ) = "\smile\EmoticonAngel.gif"
MySmilies( ";-)" ) = "\smile\EmoticonWink.gif"
MySmilies( ":-P" ) = "\smile\EmoticonTongue.gif"
MySmilies( "(y)" ) = "\smile\EmoticonThumbsUp.gif"
MySmilies( "(n)" ) = "\smile\EmoticonThumbsDown.gif"
MySmilies( ":-o" ) = "\smile\EmoticonSurprised.gif"
MySmilies( ":-$" ) = "\smile\EmoticonShy.gif"
MySmilies( ":-(" ) = "\smile\EmoticonSad.gif"
MySmilies( "(!)") = "\smile\EmoticonLightbulb.gif"
MySmilies( ":-))" ) = "\smile\EmoticonLaugh.gif"
MySmilies( "/rofl/" ) = "\smile\EmoticonHysterical.gif"
MySmilies( ":-)" ) = "\smile\EmoticonHappy.gif"
MySmilies( ":-S" ) = "\smile\EmoticonGoofy.gif"
MySmilies( "/:)" ) = "\smile\EmoticonEyebrow.gif"
MySmilies( ":'(" ) = "\smile\EmoticonCrying.gif"
MySmilies( "8-)" ) = "\smile\EmoticonCool.gif"
MySmilies( ":-/" ) = "\smile\EmoticonConfused.gif"
MySmilies( ":-D" ) = "\smile\EmoticonBigSmile.gif"
MySmilies( ":-@" ) = "\smile\EmoticonAngry.gif"

bdy = source.FieldGetText("Body" )
FieldName = source.CurrentField
If Ucase( FieldName )<>"BODY" Then Call source.GotoField( "Body")
Forall smily In MySmilies
p = Instr( 1, bdy, Listtag( smily))
While p>0
Call source.GotoField("Body")
Call source.FindString( Listtag( smily) , False )
Call source.import( "GIF Image", DataDir & smily )
bdy = Replace(bdy, Listtag(smily), "#",1,1,5)
p = Instr( 1, bdy, Listtag( smily))
Wend
End Forall
' === end emoticons ===

Call cMemoObject.QuerySave(Continue)
End Sub

Then create a folder "smile" in your notes data directory and copy the emoticon gif files from <notes program>\framework\shared\eclipse\plugins\com.ibm.collaboration.realtime.palettes_7.5.1.200705141612\smileys into the newly created "smile" folder.

See result here:
http://img514.imageshack.us/img514/4173/smileiq0.gif (cannot attach files for unknown reason)

This is a quick-hack for demonstration only. Feel free to adapt it to your needs.

Feedback response number WEBB747J4W created by ~Kirk Frofanavitchflar on 06/15/2007